(include "lib/asm/class.inc")

;;;;;;;;;;;;;;;;;;;;;
; string static class
;;;;;;;;;;;;;;;;;;;;;

(def-class sys_str :nil
	(dec-method :length sys/str/length :static (:r0) (:r0 :r1))
	(dec-method :copy sys/str/copy :static (:r0 :r1) (:r0 :r1))
	(dec-method :compare sys/str/compare :static (:r0 :r1) (:r0))
	(dec-method :to_long sys/str/to_long :static (:r0 :r1) (:r3 :r4))
	(dec-method :to_num sys/str/to_num :static (:r0) (:r3 :r4))
	(dec-method :from_long sys/str/from_long :static (:r0 :r1 :r2) (:r0))
	(dec-method :read_utf8 sys/str/read_utf8 :static (:r0) (:r0 :r1)))
